use DBI;

my @a = DBI->available_drivers();
foreach $item (@a) {
	print $item . "\n";
}

my $dbh = DBI->connect(
    "dbi:SQLite:dbname=foo.db",
    "",
    "",
    { RaiseError => 1 },
    ) or die $DBI::errstr;

my $sth = $dbh->prepare("select sqlite_version()");
$sth->execute();

my $ver = $sth->fetch();

print @$ver . "\n";

$sth->finish();

$dbh->do("drop table if exists Cars");
$dbh->do("create table Cars(Id INT PRIMARY KEY, Name TEXT, Price INT)");
$dbh->do("insert into Cars values(1,'Audi',52642)");

$dbh->disconnect();
